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; PicBasic Pro Compiler 2.44, (c) 1998, 2003 microEngineering Labs, Inc. All Rights 
Reserved. 

PMJJSED EQU 1 



INCLUDE M 16F819.INC M 



; Define statements. 



#define adc_ 


bits 




8 


#define adc_clock 




J 


#define adc_sampleus 




50 


DAM CTADT 




EQU 


00020h 


dam T?xm 




EQU 


0016Fh 


DAM TiAMl^Q 




EQU 


00003h 


DAWn QTAPT 




EQU 


00020h 


Jt> AIN JvU_r!/l>l U 




EQU 


0007Fh 






EQU 


OOOAOh 


Jt> AJN Jv 1 Ji IN U 




EQU 


OOOEFh 


J3 A. IN JS.Z_o 1 AK 1 




EQU 


001 20h 


T5 a xrvo pxtf* 




EQU 


001 6Fh 


CjHjr s\\JNl_p 1 AK 1 




EQU 


02100h 


Pi ,n P"DD/^iv/f rxm 
nJ^r KUM_liXN U 




EQU 


021FFh 


DA 

KU 


T70TT 


RAM.START + OOOh 


t> 1 




RAM.START + 002h 


rvZ 




RAM_START + 004h 






RAM_START + 006h 


R4 


EQU 


RAM_START + 008h 


R5 


EQU 


RAM_START + OOAh 


R6 


EQU 


RAM_START + OOCh 


R7 


EQU 


RAM_START + OOEh 


R8 


EQU 


RAM_START + OlOh 


Tl 


EQU 


RAM_START + 012h 


T2 


EQU 


RAM_ 


START + 014h 


FLAGS 


EQU 


RAM_START + 016h 


GOP 


EQU 


RAM_START + 017h 


RM1 


EQU 


RAM. 


START + 01 8h 


RM2 


EQU 


RAM_ 


START + 019h 


RR1 


EQU 


RAM_START + OlAh 


RR2 


EQU 


RAM_START + OlBh 


_buffer 


EQU 


RAM_START + OlCh 


_zone_buff 




EQU 


RAM.START + OlFh 


_bufcount 




EQU 


RAM_START + 022h 


_counterA 




EQU 


RAM_START + 024h 



PiZ-l 



_counterB 
_counterC 
_counterD 
_mode 

_current_zone 
_dir 

_old_PlusMinus 

PB01 

PB02 

PB03 

_PlusMinus 
_prev_zone 
_pulsedata 
_res_value 
_ticcount 
_value 
_zone 
_PORTL 
_PORTH 
_TRISL 
_TRISH 
#define _switch 
#define _tx 
#define _tx2 
#define _pinA 
#define _pinB 
#define _pinC 
#define _pinD 
#define _tempstateA 
#define _tempstateB 
#define _tempstateC 
#define _tempstateD 
#define _prevstateA 
#define _prevstateB 
#define _prevstateC 
#define _prevstateD 
#define _stateA 
#define _stateB 
#define _stateC 
#define _stateD 
#define _flagA 
#define _flagAP 
#define _flagB 
#define _flagBP 
#define _flagC 
#define _flagCP 



EQU RAM_START + 026h 

EQU RAM_START + 028h 

EQU RAM_START + 02Ah 
EQU RAM_START + 02Ch 

EQU RAM_START + 02Eh 
EQU RAM_START + 02Fh 

EQU RAM_START + 030h 
EQU RAM_START + 031h 
EQU RAM_START + 032h 
EQU RAM_START + 033h 

EQU RAM_START + 034h 

EQU RAM_START + 035h 

EQU RAM_START + 036h 

EQU RAM_START + 037h 
EQU RAM_START + 03 8h 
EQU RAM.START + 039h 
EQU RAM_START + 03Ah 

EQU PORTB 

EQU PORTA 

EQU TRISB 

EQU TRISA 
_PORTA_0 
_PORTB_2 
_PORTB_7 
_PORTA_3 
_PORTA_4 
_PORTB_0 
_PORTB_l 

PB03, OOOh 

PB03, OOlh 

PB03, 002h 

PB03, 003h 

PB02, OOOh 

PB02, OOlh 

PB02, 002h 

PB02, 003h 
PB02, 004h 
PB02, 005h 
■ PB02, 006h 
PB02, 007h 
PB01, OOOh 

PB01, OOlh 
PB01,002h 

PB01,003h 
PB01, 004h 

PB01, 005h 



#define . 
#define . 
#define . 
#define . 
#define . 
#define . 
#define . 
#defme . 
#defme . 
#define . 
#defme . 
#define . 
#define . 
#define . 
#define . 
#define . 
#define 



flagD 
.flagDP 

OPTION_REG 
PORTA.O 
PORTB_2 
PORTB_7 
PORTA.3 
PORTA_4 
PORTB_0 
PORTB_l 
_pulsedata_0 
_pulsedata_l 
_pulsedata_2 
_pulsedata_3 
_dir_0 
dir_l 
dir 2 



PB01,006h 

PB01,007h 
OPTION.REG, 007h 
PORTA, OOOh 
PORTB, 002h 
PORTB, 007h 
PORTA, 003h 
PORTA, 004h 
PORTB, OOOh 
PORTB, OOlh 
_pulsedata, OOOh 
_pulsedata, OOlh 
_pulsedata, 002h 
_pulsedata, 003h 
_dir, OOOh 
_dir, OOlh 
_dir, 002h 



; Constants. 
_limit 

INCLUDE 
INCLUDE 



EQU 00003h 

•*SNAPPE~2.MAC" 

"PBPPIC14.LIB" 



MOVE7CT 

MOVE7CB 

MOVE7CW 

INPUT7T 

INPUT7T 

INPUT7T 

INPUT ?T 

INPUT ?T 

MOVE7CB 

MOVE7CB 

MOVE7CB 

MOVE7CT 

MOVE7CT 

MOVE7CT 

MOVE7CT 

MOVE7CT 

MOVE7CT 

MOVE7CT 

MOVE7CT 

MOVE7TT 

MOVE7TT 

MOVE7TT 

MOVE7TT 



OOOh, _OPTION_REG_7 

OOEh, ADCON1 

OBCh, _mode 

_switch 

_pinA 

_pinB 

_pinC 

_pinD 

OOOh, _ticcount 
OOOh, _dir 
OOOh, _pulsedata 
OOOh, _flagA 
OOOh, _flagAP 
OOOh, _flagB 
OOOh, _flagBP 
OOOh, _flagC 
OOOh, _flagCP 
OOOh, _flagD 
OOOh, _flagDP 
_pinA, _stateA 
_pinB, _stateB 
_pinC, _stateC 
_pinD, _stateD 



Pfl-3 



M0VE7TT 

M0VE7TT 

M0VE7TT 

M0VE7TT 

M0VE7TT 

M0VE7TT 

M0VE7TT 

M0VE7TT 

M0VE7CW 

M0VE7CW 

M0VE7CW 

M0VE7CW 

M0VE7CB 

M0VE7CB 

M0VE7CB 

M0VE7CB 

M0VE7CB 

M0VE7CB 

ADCIN7CB 

M0VE7BB 

M0VE7BB 

LABEL7L 

M0VE7CB 

M0VE7CB 

M0VE7CB 

MOVE7CW 

LABEL7L 
GOSUB7L 
G0SUB7L 
G0SUB7L 
GOSUB7L 
GOSUB7L 
GOSUB7L 
GOSUB7L 
G0SUB7L 
G0SUB7L 
GOT07L 

LABEL7L 

MOVE7TT 

M0VE7TT 

M0VE7TT 

M0VE7TT 

MOVE7TT 



_pinA, _prevstateA 
_pinB, _prevstateB 
_pinC, _prevstateC 
_pinD, _prevstateD 
_pinA, _tempstateA 
_pinB, _tempstateB 
_pinC, _tempstateC 
_pinD, _tempstateD 
Jimit, _counterA 
Jimit, _counterB 
_limit, _counterC 
_limit, _counterD 
OFFh, _zone_buff 
OFFh, _zone_buff + 0000 lh 
OFFh, _zone_buff + 00002h 
OOOh, _zone 
OOOh, _prev_zone 
OOOh, _current_zone 
002h, _value 
_value, _value 
_value, _res_value 

Jmfinit 
OFFh, _buffer 
OFFh, .buffer + OOOOlh 
OFFh, _buffer + 00002h 
OOOh, _bufcount 

_main 

_Rotory 

_Direction 

_BufStuff 

_Display 

_resvalue 

_Look 

_a2dbuffer 

_Press_Test 

_Release_test 

_main 

initialize 
_pinA, _stateA 
_pinB, _stateB 
_pinC, _stateC 
_pinD, _stateD 
_pinA, _prevstateA 



ftZ-4 



M0VE7TT _pinB, _prevstateB 

M0VE7TT _pinC, _prevstateC 

M0VE7TT _pinD, _prevstateD 
RETURN? 



LABEL7L 

G0SUB7L 

GOSUB7L 

G0SUB7L 

G0SUB7L 

CMPEQ7TCB 

CMPEQ7TCB 

L0R7BBW 

CMPF7WL 

M0VE7TT 

M0VE7TT 

M0VE7TT 

M0VE7TT 

M0VE7CT 

MOVE7CT 

MOVE7CW 

GOT07L 

LABEL7L 

CMPEQ7TCB 

CMPEQ7TCB 

L0R7BBW 

CMPF7WL 

M0VE7TT 

MOVE7TT 

M0VE7TT 

M0VE7TT 

M0VE7CT 

M0VE7CT 

M0VE7CW 

LABEL7L 

LABEL7L 



_Rotory 
_CheckPinA 
_CheckPinB 
_CheckPinC 
_CheckPinD 
_flagA, OOlh, Tl 
_flagB, OOlh, T2 
T1,T2,T2 
T2, L00001 

_prevstateA, _pulsedata_0 
_prevstateB, _pulsedata_l 
_stateA, _pulsedata_2 
_stateB, _pulsedata_3 
OOOh, _flagA 
OOOh, _flagB 
OOOh, _bufcount 
L00002 
LOOOOl 

_flagC, OOlh, Tl 
_flagD, OOlh, T2 
T1,T2,T2 
T2, L000O3 

_prevstateC, _pulsedata_0 
_prevstateD, _pulsedata_l 
_stateC, _pulsedata_2 
_stateD, _pulsedata_3 
OOOh, _flagC 
OOOh, _flagD 
OOOh, _bufcount 
L00003 
L00002 



LABEL7L 
RETURN? 



_exit_rotory 



LABEL7L _CheckPinA 

CMPNE7WCL _counterA, Jimit, L00005 

GOT07L _statecheckA 

GOT07L L00006 

LABEL7L L00005 

ADD7WCW _counterA, OOlh, _counterA 



tYL-5 



G0T07L _countercheckA 
LABEL7L L00006 



LABEL7L _countercheckA 
CMPNE7WCL _counterA, Jimit, L00007 
CMPEQ7TTL _tempstateA, _pinA, L00009 



G0T07L 

G0T07L 

LABEL7L 

M0VE7TT 

M0VE7TT 

M0VE7CT 

MOVE7CT 

GOT07L 

LABEL7L 

GOT07L 

LABEL7L 

G0T07L 

LABEL7L 



_resetcounterA 

L00010 

L00009 

_stateA, _prevstateA 

_tempstateA, _stateA 

00 lh, _flagA 

OOlh, _flagAP 

_exitA 

L00010 

L00008 

L00007 

_tempstatecheckA 
L00008 



LABEL7L _tempstatecheckA 
CMPEQ7TTL _tempstateA, _pinA, L0001 1 



G0T07L 

GOT07L 

LABEL7L 

G0T07L 

LABEL7L 



_resetcounterA 

L00012 

L00011 

_exitA 

L00012 



LABEL7L _statecheckA 
CMPEQ7TTL _stateA, _pinA, L00013 



G0T07L 

G0T07L 

LABEL7L 

GOT07L 

LABEL7L 



_resetcounterA 

L00014 

L00013 

_exitA 

L00014 



LABEL7L _resetcounterA 

M0VE7CT OOOh, _flagA 

M0VE7CW OOOh, _counterA 

MOVE7TT _pinA, _tempstateA 



LABEL7L 
RETURN? 



exitA 



LABEL7L _CheckPinB 

CMPNE7WCL _counterB , Jimit, L00O1 5 



G0T07L 


_statecheckB 


GOTO^L 


L00016 

*-J\J \J\J X \J 


LABEL7L 


L00015 


ADD7WCW 


_counterB, OOlh, _counterB 


GOT07L 


_countercheckB 


LABEL7L 


L00016 


LABEL7L 


_countercheckB 


CMPNE7WCL _counterB, Jimit, LOi 




ffnYvnctat^R rvinR T 00010 
LCI I lpfc La LCD, pi I ID, L^vJvJVJ 17 


GOT07L 


_resetcounterB 


GOT07L 


L00020 


LABEL7L 


L00019 


MOVE7TT 


_stateB, _prevstateB 


MOVE7TT 


_tempstateB, __stateB 


MOVE7CT 


OOlh, _flagB 


MOVE7CT 


OOlh, _flagBP 




C A 1 L-D 


LABEL7L 


L00020 


GOT07L 


L00018 


LABEL7L 


L00017 


GOT07L 


_tempstatecheckB 


LABEL7L 


L00018 


LABEL7L 


_tempstatecheckB 




leilipaLalcD, _piILD, 1_,UUUZ.± 


GOTO?L 


_resetcounterB 


GOT07L 


L00022 


LABEL7L 


L00021 


GOT07L 


_exitB 


LABEL^L 


t 00022 


LABEL7L 


_statecheckB 


CMPEQ7TTL 


_stateB, _pinB, L00023 


GOT07L 


_resetcounterB 


GOT07L 


L00024 


LABEL7L 


L00023 


GOTO7L 


_exitB 


LABEL7L 


L00024 


LABEL7L 


_resetcounterB 


MOVE7CT 


OOOh, _flagB 


MOVE7CW 


OOOh, _counterB 


MOVE7TT 


_pinB, _tempstateB 


LABEL7L 


_exitB 



PiZ-7 



RETURN? 



LABEL7L _CheckPinC 

CMPNE7WCL _counterC, Jimit, L00025 

G0T07L _statecheckC 

GOT07L L00026 

LABEL7L L00025 

ADD7WCW _counterC, OOlh, _counterC 

GOT07L _countercheckC 

LABEL7L L00026 



LABEL7L _countercheckC 

CMPNE7WCL _counterC, Jimit, L00027 

CMPEQ7TTL _tempstateC, _pinC, L00029 

GOTO7L _resetcounterC 

GOT07L L00030 

LABEL7L L00029 

MOVE7TT _stateC, _prevstateC 

MOVE7TT _tempstateC, _stateC 

MOVE7CT 001h,_flagC 

MOVE7CT OOlh, _flagCP 

GOT07L _exitC 

LABEL7L L00030 

GOT07L L00028 

LABEL7L L00027 

GOT07L _tempstatecheckC 

LABEL7L L00028 



LABEL7L _tempstatecheckC 
CMPEQ7TTL _tempstateC, _pinC, L00031 

GOT07L _resetcounteiC 

GOT07L L00032 

LABEL7L L00031 

GOT07L _exitC 

LABEL7L L00032 



LABEL7L _statecheckC 
CMPEQ7TTL _stateC, _pinC, L00033 

GOT07L _resetcounterC 

GOT07L L00034 

LABEL7L L00033 

GOT07L _exitC 

LABEL7L L00034 

LABEL7L _resetcounterC 

MOVE7CT OOOh, _flagC 



M0VE7CW OOOh, _counterC 
MOVE7TT _pinC, _tempstateC 



LABEL7L _exitC 
RETURN? 



LABEL7L _CheckPinD 

CMPNE7WCL _counterD, Jimit, L00035 

GOT07L _statecheckD 

GOT07L L00036 

LABEL7L L00035 

ADD7WCW _counterD, 00 lh, _counterD 

GOT07L _countercheckD 

LABEL7L L00036 



LABEL7L _countercheckD 

CMPNE7WCL _counterD, Jimit, L00037 

CMPEQ7TTL _tempstateD, _pinD, L00039 

GOT07L _resetcounterD 

GOT07L L00040 

LABEL7L L00039 

MOVE7TT _stateD, _prevstateD 

MOVE7TT _tempstateD, _stateD 

MOVE7CT 001 h, _flagD 

MOVE7CT 001 h, _flagDP 

GOT07L _exitD 

LABEL7L L00040 

GOT07L L00038 

LABEL7L L00037 

GOT07L _tempstatecheckD 

LABEL7L L00038 



LABEL7L _tempstatecheckD 
CMPEQ7TTL _tempstateD, _pinD, L00041 

GOT07L _resetcounterD 

GOT07L L00042 

LABEL7L L00041 

GOT07L _exitD 

LABEL7L L00042 



LABEL7L _statecheckD 
CMPEQ7TTL _stateD, _pinD, L00043 
GOT07L _resetcounterD 
GOT07L L00044 
LABEL7L L00043 
GOT07L _exitD 



LABEL7L L00044 



LABEL7L _resetcounterD 

MOVE7CT OOOh, _flagD 

MOVE7CW OOOh, _counterD 

MOVE7TT _pinD, _tempstateD 



LABEL7L 
RETURN? 



exitD 



LABEL7L 

CMPEQ7BCB 

CMPEQ7BCB 

LOR7BBW 

CMPF7WL 

GOT07L 

GOT07L 

LABEL7L 

MOVE7BT 

MOVE7BT 

MOVE7BT 

LABEL7L 

GOSUB7L 



_BufStuff 

.buffer + OOOOlh, OFFh, Tl 
.buffer + 00002h, OFFh, T2 
T1,T2,T2 
T2, L00045 
.shift 
L00O46 
L00O45 
.buffer, .dir.O 
.buffer + OOOO lh,_dir_l 
.buffer + 00002h, _dir_2 
L00046 
ClockCounterClock 



LABEL7L 
M0VE7BB 
MOVE7BB 
RETURN? 



.shift 

.buffer + OOOOlh, .buffer + 00002h 
.buffer, .buffer + OOOOlh 



LABEL?L .Direction 
CMPEQ?BCL_pulsedata, OOFh, L00049 
CMPEQ?BCL_pulsedata, OOAh, L00050 
CMPEQ?BCL_pulsedata, 005h, L00051 
CMPNE?BCL_pulsedata, OOOh, L00052 

LABEL?L L00049 

LABEL?L L00050 



LABEL?L 
MOVE?CB 
GOTO?L 
LABEL?L 



L00051 
OFFh, .buffer 
L00048 
L00052 



CMPEQ?BCL_pulsedata, OOEh, L00053 
CMPEQ?BCL_pulsedata, 008h, L00054 
CMPEQ?BCL_pulsedata, 007h, LO0055 



CMPNE?BCL_pulsedata, OOlh, L00056 

LABEL7L L00053 

LABEL7L L00054 

LABEL7L L00055 
MOVE7CB OOlh, _buffer 
GOT07L L00048 
LABEL7L L00056 
CMPEQ?BCL_pulsedata, OODh, L00057 
CMPEQ?BCL_pulsedata, OOBh, L00058 
CMPEQ?BCL_pulsedata, 004h, L00059 
CMPNE?BCL_pulsedata, 002h, L00060 

LABEL7L L00057 

LABEL7L L00058 

LABEL7L L00059 
MOVE7CB OOOh, .buffer 
GOT07L L00048 
LABEL7L L00060 
CMPEQ?BCL_pulsedata, OOCh, L00061 
CMPEQ?BCL_pulsedata, 009h, L00062 
CMPEQ?BCL_pulsedata, 006h, L00063 
CMPNE?BCL_pulsedata, 003h, L00064 

LABEL7L L00061 

LABEL7L L00062 

LABEL7L L00063 
MOVE7CB OFFh, _buffer 
LABEL7L L00064 
LABEL7L L00048 
RETURN? 

LABEL7L _ClockCounterClock 
CMPEQ7BCL _dir, 004h, L00067 
CMPEQ7BCL _dir, 002h, L00068 
CMPEQ7BCL _dir, OOlh, L00069 
CMPNE7BCL _dir, OOOh, L00070 

LABEL7L L00067 



pa-w 



LABEL7L L00068 

LABEL7L L00069 
M0VE7CB 02Dh, _PlusMinus 
G0T07L L00066 
LABEL7L L00070 
CMPEQ7BCL _dir, 007h, L00071 
CMPEQ7BCL _dir, 006h, L00072 
CMPEQ7BCL _dir, 005h, L00073 
CMPNE7BCL _dir, 003h, L00074 



LABEL7L L00071 



LABEL7L L00072 

LABEL7L L00073 

MOVE7CB 02Bh, _PlusMinus 

LABEL7L L00074 

LABEL7L L00066 
RETURN? 



LABEL7L _Display 
CMPEQ7TCB _flagAP, OOlh, Tl 
CMPEQ7TCB _flagBP, OOlh, T2 
LAND7BBW T1,T2,T2 
CMPF7WL T2, L00075 

CMPEQ?BBL_old_PlusMinus, _PlusMinus, L00077 

MOVE7BB _PlusMinus, _old_PlusMinus 

LABEL7L L00077 

CMPNE?BCL_PlusMinus, 02Dh, L00079 

SUB7BCB _ticcount, OOlh, _ticcount 

CMPEQ?BCB_ticcount, OOOh, Tl 

CMPEQ?BCB_ticcount, OFFh, T2 

LOR7BBW T1,T2,T2 

CMPF7WL T2,L00081 

MOVE7CB OlEh, _ticcount 

LABEL7L LO0O81 

SEROUT2DPIN7T _tx 

SEROUT2MODE7W _mode 

SEROUT2PACE7C OOOh 

SEROUT27C 024h 

SEROUT27C 04Ch 

SEROUT27C 02Bh 

SEROUT27C 02Ah 

GOT07L L00080 

LABEL7L L00079 



ADD7BCB _ticcount, 00 lh, _ticcount 
CMPNE?BCL_ticcount, OlFh, L00083 
M0VE7CB 001 h, _ticcount 
LABEL7L L00083 
SEROUT2DPIN7T _tx 
SEROUT2MODE7W _mode 
SEROUT2PACE7C OOOh 
SEROUT27C 024h 
SEROUT27C 04Ch 
SEROUT27C 02Dh 
SEROUT27C 02Ah 
LABEL7L L00080 
G0SUB7L .initialize 
M0VE7CT OOOh, _flagAP 
MOVE7CT OOOh, _flagBP 
LABEL7L L00075 
CMPEQ?TCB_flagCP, OOlh, Tl 
CMPEQ7TCB _flagDP, OOlh, T2 
LAND7BBW T1,T2,T2 
CMPF7WL T2, L00085 

CMPEQ?BBL_old_PlusMinus, _PlusMinus, L00087 

M0VE7BB _PlusMinus, _old_PlusMinus 

LABEL7L L00087 

CMPNE?BCL_PlusMinus, 02Dh, L00089 

SUB7BCB _ticcount, OOlh, _ticcount 

CMPEQ?BCB_ticcount, OOOh, Tl 

CMPEQ?BCB_ticcount, OFFh, T2 

L0R7BBW T1,T2,T2 

CMPF7WL T2, L00091 

M0VE7CB OlEh, _ticcount 

LABEL7L L00091 

SEROUT2DPIN7T _tx 

SEROUT2MODE7W _mode 

SEROUT2PACE7C OOOh 

SEROUT27C 024h 

SEROUT27C 052h 

SEROUT27C 02Bh 

SEROUT27C 02Ah 

G0T07L L00090 

LABEL7L L00089 

ADD7BCB _ticcount, OOlh, _ticcount 

CMPNE?BCL_ticcount, OlFh, L00093 

MOVE7CB OOlh, _ticcount 

LABEL7L L00093 

SEROUT2DPIN7T _tx 

SEROUT2MODE7W mode 



SEROUT2PACE7C 
SEROUT27C 024h 
SEROUT27C 052h 
SEROUT27C 02Dh 
SEROUT27C 02Ah 
LABEL7L 
G0SUB7L 
M0VE7CT 
M0VE7CT 
LABEL7L 
RETURN? 



OOOh 



L00090 
.initialize 
OOOh, _flagCP 
OOOh, _flagDP 
L00085 



LABEL7L _resvalue 

ADCIN7CB OOOh, .value 
CMPEQ7BBL _res_value, _value, L00095 

PAUSE7C 032h 

MOVE7BB _value, _res_value 

GOT07L _resvalue 

LABEL7L L00095 

MOVE7BB _value, _res_value 



LABEL7L 
RETURN? 



.exit resval 



LABEL7L _Look 
CMPEQ?BCL_res_value, 06Ah, L00099 
CMPEQ?BCL_res_value, 069h, LOOIOO 
CMPNE?BCL_res_value, 068h, LOOlOl 

LABEL7L L00099 



LABEL7L 
MOVE7CB 
GOT07L 
LABEL7L 



LOOIOO 

03 lh, _zone_buff 

L00098 

LOOlOl 



CMPEQ?BCL_res_value, 05Fh, L00102 
CMPEQ?BCL_res_value, 05Eh, LOO 103 
CMPEQ?BCL_res_value, 05Dh, L00104 
CMPNE?BCL_res_value, 05Ch, L00105 

LABEL7L L00102 

LABEL7L L00103 



LABEL7L L00104 
M0VE7CB 036h, _zone_buff 



G0T07L L00098 
LABEL7L L00105 
CMPEQ?BCL_res_value, 0B5h, L00106 
CMPEQ?BCL_res_value, 0B4h, LOO 107 
CMPEQ?BCL_res_value, 0B3h, LOO 108 
CMPNE?BCL_res_value, 0B2h, L00109 



LABEL7L L00106 



LABEL7L L00107 



LABEL7L L00108 
M0VE7CB 032h, _zone_buff 
G0T07L L00098 
LABEL7L L00109 
CMPEQ?BCL_res_value, 079h, L00110 
CMPEQ?BCL_res_value, 078h, L001 1 1 
CMPEQ?BCL_res_value, 077h, L00112 
CMPEQ?BCL_res_value, 076h, L00113 
CMPNE?BCL_res_value, 075h, L00114 

LABEL7L L00110 



LABEL7L L00111 



LABEL7L L00112 

LABEL7L L00113 
MOVE7CB 035h, _zone 
G0T07L L00098 
LABEL7L L00114 
CMPEQ?BCL_res_value, 065h, L00115 
CMPEQ?BCL_res_value, 064h, L00116 
CMPEQ?BCL_res_value, 063h, L00117 
CMPEQ?BCL_res_value, 062h, L00118 
CMPNE?BCL_res_value, 061h, L00119 



LABEL7L L00115 



LABEL7L L00116 
LABEL7L L00117 



LABEL7L L00118 
MOVE7CB 038h, _zone 
G0TQ7L L00098 



LABEL7L L00119 
CMPEQ?BCL_res_value, 0D6h, L00120 
CMPEQ?BCL_res_value, 0D5h, L00121 
CMPEQ?BCL_res_value, 0D4h, L00122 
CMPEQ?BCL_res_value, 0D3h, L00123 
CMPNE?BCL_res_value, 0D2h, L00124 

LABEL7L L00120 

LABEL7L L00121 

LABEL7L L00122 



LABEL7L 
M0VE7CB 
G0T07L 
LABEL7L 



L00123 

033h, _zone_buff 

L00098 

L00124 



CMPEQ?BCL_res_value, 083h, L00125 
CMPEQ?BCL_res_value, 082h, L00126 
CMPNE?BCL_res_value, 081h, L00127 

LABEL7L LOO 125 



LABEL7L 
MOVE7CB 
GOTO7L 
LABEL7L 



L00126 

037h, _zone_buff 

L00098 

L00127 



CMPEQ?BCL_res_value, O90h, L00128 
CMPEQ?BCL_res_value, 08Fh, L00129 
CMPEQ?BCL_res_value, 08Eh, L00130 
CMPNE?BCL_res_value, 08Dh, L00131 

LABEL7L L00128 

LABEL7L L00129 



LABEL7L 

MOVE7CB 

GOT07L 

LABEL7L 

MOVE7CB 

LABEL7L 



L00130 

034h, _zone_buff 

L00098 

L00131 

OOOh, _zone_buff 
L00098 



LABEL7L 
RETURN? 



_exit_lookup 



LABEL7L _a2dbuffer 
CMPEQ?BCB_zone_buff+ 00001 h, OFFh, Tl 
CMPEQ?BCB_zone_buff + 00002h, OFFh, T2 . 
L0R7BBW Tl, T2, T2 
CMPF7WL T2, L00132 
G0T07L _buff_shift 
LABEL7L L00132 

CMPNE7BBL _zone_buff , _zone_buff+ 00001 h, L00134 
M0VE7BB _zone_buff, _zone 
G0T07L _clear_buff 
LABEL7L L00134 

CMPNE7BBL _zone_buff , _zone_buff + 00002h, L00136 
M0VE7BB _zone_buff, _zone 
G0T07L _clear_buff 
LABEL7L L00136 

CMPNE?BBL_zone_buff + OOOOlh, _zone_buff + 00002h, L00138 
M0VE7BB _zone_buff + OOOOlh, _zone 
GOTO7L _clear_buff 
LABEL7L L00138 



LABEL7L _clear_buff 
M0VE7CB OFFh, _zone_buff 
M0VE7CB OFFh, _zone_buff + OOOOlh 
M0VE7CB OFFh, _zone_buff + 00002h 
PAUSEUS7C 064h 
G0T07L _exit_a2dbuffer 



LABEL7L _buff_shift 

M0VE7BB _zone_buff + OOOOlh, _zone_buff + 00002h 

M0VE7BB _zone_buff, _zone_buff + OOOOlh 

LABEL7L _exit_a2dbuffer 
RETURN? 



LABEL7L _Press_Test 

CMPEQ7BBL _zone, _current_zone, L00140 

CMPEQ?BCL_zone, OOOh, L00142 

M0VE7BB _zone, _current_zone 

G0SUB7L _press 

LABEL7L L00142 

LABEL7L L00140 

LABEL7L _exit_press_test 
RETURN? 



LABEL?L _Release_test 



CMPEQ7BBL _zone, _current_zone, L00144 
G0SUB7L .release 
M0VE7BB _zone, _current_zone 
LABEL7L L00144 

LABEL7L _exit_rel_test 
RETURN? 

LABEL7L _press 
SEROUT2DP1N7T _tx 
SEROUT2MODE7W _mode 
SEROUT2PACE7C OOOh 
SEROUT27C 024h 
SEROUT27B _zone 
SEROUT27C 050h 
SEROUT27C 02Ah 
SEROUT2DPIN7T _tx2 
SEROUT2MODE7W _mode 
SEROUT2PACE7C OOOh 
SEROUT27C 052h 
SEROUT27C 065h 
SEROUT27C 073h 
SEROUT27C 020h 
SEROUT27C 056h 
SEROUT27C 061h 
SEROUT27C 06Ch 
SEROUT27C 075h 
SEROUT27C 065h 
SEROUT27C O20h 
SEROUT2COUNT?C000h 
SEROUT2NUM7B _res_value 
SEROUT2DEC? 
SEROUT27C OODh 
SEROUT27C OOAh 

LABEL7L _exit_press 
RETURN? 

LABEL7L .release 
SEROUT2DPIN7T _tx 
SEROUT2MODE7W _mode 
SEROUT2PACE7C OOOh 
SEROUT27C 024h 
SEROUT27B _current_zone 
SEROUT27C 052h 
SEROUT27C 02Ah 



LABEL7L _exit_release 
RETURN? 

END 



